<% Head() Dim admin_flag,sqlstr,myrootid FoundErr=False admin_flag=",14," If Not Dvbbs.master Or InStr(","&Session("flag")&",",admin_flag)=0 Then Errmsg=ErrMsg + "

本页面为管理员专用，请登录后进入。

您没有管理本页面的权限。" Dvbbs_Error() End if Dim tRs,UserInfo,UserTitle UserMain(1) Select Case Request("action") Case "fix" Fixuser() Case "userSearch" UserSearch() Case "touser" ToUser() Case "modify" UserModify() Case "saveuserinfo" SaveUserInfo() Case "UserPermission" UserPermission() Case "UserBoardPermission" UserBoardPermission() Case "saveuserpermission" SaveUserPermission() Case "uniteuser" UniteUser() Case Else UserIndex() End Select UserMain(0) Footer() '用户管理通用头部 Sub UserMain(Str) If Str = 1 Then %> <% Else %>

用户管理
注意事项	①点删除按钮将删除所选定的用户，此操作是不可逆的； ②您可以批量移动用户到相应的组； ③点用户名进行相应的资料操作； ④点用户最后登陆IP可进行锁定IP操作； ⑤点用户Email将给该用户发送Email ⑥点修复贴子将会修复该用户所发的贴子数据并更新其文章数，用于误删ID用户贴的修复。
快速查看：用户管理首页 \| <%If Request("userSearch")="1" Then%><%End If%>所有用户<%If Request("userSearch")="1" Then%><%End If%> \| <%If Request("userSearch")="2" Then%><%End If%>发贴TOP100<%If Request("userSearch")="2" Then%><%End If%> \| <%If Request("userSearch")="3" Then%><%End If%>发贴END100<%If Request("userSearch")="3" Then%><%End If%> \| <%If Request("userSearch")="4" Then%><%End If%>24H内登录<%If Request("userSearch")="4" Then%><%End If%> \| <%If Request("userSearch")="5" Then%><%End If%>24H内注册<%If Request("userSearch")="5" Then%><%End If%> 　　　　　<%If Request("userSearch")="6" Then%><%End If%>等待验证会员<%If Request("userSearch")="6" Then%><%End If%> \| <%If Request("userSearch")="7" Then%><%End If%>邮件验证<%If Request("userSearch")="7" Then%><%End If%> \| <%If Request("userSearch")="8" Then%><%End If%>管理　团队<%If Request("userSearch")="8" Then%><%End If%> \| <%If Request("userSearch")="11" Then%><%End If%>屏蔽　用户<%If Request("userSearch")="11" Then%><%End If%> \| <%If Request("userSearch")="12" Then%><%End If%>锁定用户<%If Request("userSearch")="12" Then%><%End If%><%If Dvbbs.Forum_ChanSetting(0)="1" Then%> \| <%If Request("userSearch")="13" Then%><%End If%>阳光会员<%If Request("userSearch")="13" Then%><%End If%><%End If%> \| <%If Request("userSearch")="13" Then%><%End If%>自定义权限用户<%If Request("userSearch")="13" Then%><%End If%> \| <%If Request("userSearch")="15" Then%><%End If%>VIP用户<%If Request("userSearch")="15" Then%><%End If%>
功能选项：合并用户 \| 奖惩用户管理 \| 版主工作情况

<% End If End Sub '用户管理首页，搜索项 Sub UserIndex() %>

高级查询注意事项在记录很多的情况下搜索条件越多查询越慢，请尽量减少查询条件；最多显示记录数也不宜选择过大最多显示记录数用户名用户名完整匹配用户组 Email包含用户IM包含包括主页、OICQ、UC、ICQ、YAHOO、AIM、MSN 登录IP包含头衔包含签名包含详细资料包含特殊查询（注意： <多于> 或 <少于> 已默认包含 <等于>；条件留空则不使用此条件）

<% End Sub '用户搜索结果项 Sub UserSearch() %> 搜索结果 <% dim currentpage,page_count,Pcount dim totalrec,endpage currentPage=request("page") if currentpage="" or not IsNumeric(currentpage) then currentpage=1 else currentpage=clng(currentpage) if err then currentpage=1 err.clear end if end if Sql = " Userid, Username, Useremail, LastLogin, UserLastIP, UserPost, UserGroupID,Vip_StarTime,Vip_EndTime" Set Rs = Server.CreateObject("ADODB.Recordset") Select Case Request("UserSearch") Case 1 Sql = "SELECT " & Sql & " FROM [Dv_User] ORDER BY UserID DESC" Case 2 Sql = "SELECT TOP 100 " & Sql & " FROM [Dv_User] ORDER BY UserPost DESC" case 3 sql="select top 100 " & Sql & " from [dv_user] order by UserPost" case 4 If IsSqlDataBase=1 Then sql="select " & Sql & " from [dv_user] where datediff(hour,LastLogin,"&SqlNowString&")<25 order by lastlogin desc" else sql="select " & Sql & " from [dv_user] where datediff('h',LastLogin,"&SqlNowString&")<25 order by lastlogin desc" end if case 5 If IsSqlDataBase=1 Then sql="select " & Sql & " from [dv_user] where datediff(hour,JoinDate,"&SqlNowString&")<25 order by UserID desc" else sql="select " & Sql & " from [dv_user] where datediff('h',JoinDate,"&SqlNowString&")<25 order by UserID desc" end if case 6 sql="select " & Sql & " from [dv_user] where usergroupid=5 order by UserID desc" case 7 sql="select " & Sql & " from [dv_user] where usergroupid=6 order by UserID desc" case 8 sql="select " & Sql & " from [dv_user] where usergroupid<4 order by usergroupid" case 10 Sql = "select " & Sql & " from [dv_user] where usergroupid="&request("usergroupid")&" order by UserID desc" case 11 sql="select " & Sql & " from [dv_user] where lockuser=2 order by userid desc" case 12 sql="select " & Sql & " from [dv_user] where lockuser=1 order by userid desc" case 13 sql="select " & Sql & " from [dv_user] where IsChallenge=1 order by userid desc" case 14 Sql = "SELECT " & Sql & " FROM [Dv_User] WHERE UserID IN (SELECT Uc_UserID FROM Dv_UserAccess) ORDER BY Userid DESC" case 15 Sql = "SELECT " & Sql & " FROM [dv_user] WHERE UserGroupid IN (SELECT UserGroupID FROM Dv_UserGroups WHERE ParentGID=5) ORDER BY Vip_EndTime desc,UserID desc" case 9 sqlstr="" if request("username")<>"" then if request("usernamechk")="yes" then sqlstr=" username='"&request("username")&"'" else sqlstr=" username like '%"&request("username")&"%'" end if end if if cint(request("usergroups"))>0 then if sqlstr="" then sqlstr=" usergroupid="&request("usergroups")&"" else sqlstr=sqlstr & " and usergroupid="&CheckNumeric(request("usergroups")) end if end if 'if request("userclass")<>"0" then ' if sqlstr="" then ' sqlstr=" userclass='"&request("userclass")&"'" ' else ' sqlstr=sqlstr & " and userclass='"&request("userclass")&"'" ' end if 'end if '======shinzeal加入特殊搜索======= dim Tsqlstr if request("loginT")<>"" then if request("loginR")="more" then Tsqlstr=" userlogins >= "&CheckNumeric(request("loginT")) else Tsqlstr=" userlogins <= "&CheckNumeric(request("loginT")) end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("vanishT")<>"" then if request("vanishR")="more" then If IsSqlDataBase=1 Then Tsqlstr=" datediff(d,lastlogin,"&SqlNowString&") >= "&CheckNumeric(request("vanishT")) Else Tsqlstr=" datediff('d',lastlogin,"&SqlNowString&") >= "&CheckNumeric(request("vanishT")) End If else If IsSqlDataBase=1 Then Tsqlstr=" datediff(d,lastlogin,"&SqlNowString&") <= "&CheckNumeric(request("vanishT")) Else Tsqlstr=" datediff('d',lastlogin,"&SqlNowString&") <= "&CheckNumeric(request("vanishT")) End If end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("regT")<>"" then if request("regR")="more" then If IsSqlDataBase=1 Then Tsqlstr=" datediff(d,JoinDate,"&SqlNowString&") >= "&CheckNumeric(request("regT")) Else Tsqlstr=" datediff('d',JoinDate,"&SqlNowString&") >= "&CheckNumeric(request("regT")) End If else If IsSqlDataBase=1 Then Tsqlstr=" datediff(d,JoinDate,"&SqlNowString&") <= "&CheckNumeric(request("regT")) Else Tsqlstr=" datediff('d',JoinDate,"&SqlNowString&") <= "&CheckNumeric(request("regT")) End If end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("artcleT")<>"" then if request("artcleR")="more" then Tsqlstr=" UserPost >= "&CheckNumeric(request("artcleT")) else Tsqlstr=" UserPost <= "&CheckNumeric(request("artcleT")) end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("UWealth_value")<>"" then if request("UWealth")="more" then Tsqlstr=" userWealth >= "&CheckNumeric(Request("UWealth_value")) else Tsqlstr=" userWealth <= "&CheckNumeric(Request("UWealth_value")) end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("UEP_value")<>"" then if request("UEP")="more" then Tsqlstr=" userEP >= "&CheckNumeric(Request("UEP_value")) else Tsqlstr=" userEP <= "&CheckNumeric(Request("UEP_value")) end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("UCP_value")<>"" then if request("UCP")="more" then Tsqlstr=" userCP >= "&CheckNumeric(Request("UCP_value")) else Tsqlstr=" userCP <= "&CheckNumeric(Request("UCP_value")) end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("UPower_value")<>"" then if request("UPower")="more" then Tsqlstr=" UserPower >= "&CheckNumeric(Request("UPower_value")) else Tsqlstr=" UserPower <= "&CheckNumeric(Request("UPower_value")) end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("UMoney_value")<>"" then if request("UMoney")="more" then Tsqlstr=" UserMoney >= "&CheckNumeric(Request("UMoney_value")) else Tsqlstr=" UserMoney <= "&CheckNumeric(Request("UMoney_value")) end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("UTicket_value")<>"" then if request("UTicket")="more" then Tsqlstr=" UserTicket >= "&CheckNumeric(Request("UTicket_value")) else Tsqlstr=" UserTicket <= "&CheckNumeric(Request("UTicket_value")) end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("UVipStarTime_value")<>"" then if request("UVipStarTime")="more" then If IsSqlDataBase=1 Then Tsqlstr=" datediff(d,Vip_StarTime,"&SqlNowString&") >= "&CheckNumeric(request("UVipStarTime_value")) Else Tsqlstr=" datediff('d',Vip_StarTime,"&SqlNowString&") >= "&CheckNumeric(request("UVipStarTime_value")) End If else If IsSqlDataBase=1 Then Tsqlstr=" datediff(d,Vip_StarTime,"&SqlNowString&") <= "&CheckNumeric(request("UVipStarTime_value")) Else Tsqlstr=" datediff('d',Vip_StarTime,"&SqlNowString&") <= "&CheckNumeric(request("UVipStarTime_value")) End If end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if if request("UVipEndTime_value")<>"" then if request("UVipEndTime")="more" then If IsSqlDataBase=1 Then Tsqlstr=" datediff(d,Vip_EndTime,"&SqlNowString&") >= "&CheckNumeric(request("UVipEndTime_value")) Else Tsqlstr=" datediff('d',Vip_EndTime,"&SqlNowString&") >= "&CheckNumeric(request("UVipEndTime_value")) End If else If IsSqlDataBase=1 Then Tsqlstr=" datediff(d,Vip_EndTime,"&SqlNowString&") <= "&CheckNumeric(request("UVipEndTime_value")) Else Tsqlstr=" datediff('d',Vip_EndTime,"&SqlNowString&") <= "&CheckNumeric(request("UVipEndTime_value")) End If end if if sqlstr="" then sqlstr=Tsqlstr else sqlstr=sqlstr & " and " & Tsqlstr end if end if '======特殊搜索结束====== if request("useremail")<>"" then if sqlstr="" then sqlstr=" useremail like '%"&request("useremail")&"%'" else sqlstr=sqlstr & " and useremail like '%"&request("useremail")&"%'" end if end if if request("userim")<>"" then if sqlstr="" then sqlstr=" UserIM like '%"&request("userim")&"%'" else sqlstr=sqlstr & " and UserIM like '%"&request("userim")&"%'" end if end if if request("lastip")<>"" then if sqlstr="" then sqlstr=" UserLastIP like '%"&request("lastip")&"%'" else sqlstr=sqlstr & " and UserLastIP like '%"&request("lastip")&"%'" end if end if if request("userinfo")<>"" then if sqlstr="" then sqlstr=" UserInfo like '%"&request("userinfo")&"%'" else sqlstr=sqlstr & " and UserInfo like '%"&request("userinfo")&"%'" end if end if '修正不能用头衔搜索 2005-4-9 Dv.Yz If Request("usertitle") <> "" Then If Sqlstr = "" Then Sqlstr = " UserTitle LIKE '%" & Request("usertitle") & "%'" Else Sqlstr = Sqlstr & " AND UserTitle LIKE '%" & Request("usertitle") & "%'" End If End If if request("sign")<>"" then if sqlstr="" then sqlstr=" usersign like '%"&request("sign")&"%'" else sqlstr=sqlstr & " and usersign like '%"&request("sign")&"%'" end if end if If Sqlstr = "" Then Response.Write "请指定搜索参数！" Response.End End If If Request("Searchmax") = "" Or Not Isnumeric(Request("Searchmax")) Then Sql = "SELECT TOP 1 "& Sql &" FROM [Dv_User] WHERE " & Sqlstr & " ORDER BY UserID DESC" Else Sql = "SELECT TOP " & Request("Searchmax") & Sql &" FROM [Dv_User] WHERE " & Sqlstr & " ORDER BY UserID DESC" End If case else Response.Write "错误的参数。" Response.End End Select 'Response.Write sql rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "没有找到相关记录。" If Request("userSearch")="15" Then Response.Write "（若未添加VIP用户组，请点击进入论坛用户组管理进行添加。）" End If Response.Write "" else %>

用户名 Email 权限 数据修复 最后IP 最后登录 登记/终止日期 操作 <% rs.PageSize = Cint(Dvbbs.Forum_Setting(11)) rs.AbsolutePage=currentpage page_count=0 totalrec=rs.recordcount while (not rs.eof) and (not page_count = Cint(Dvbbs.Forum_Setting(11))) %> "><%=rs("username")%> "><%=rs("useremail")%> &username=<%=rs("username")%>">编辑 &username=<%=rs("username")%>">修复 " title="点击锁定该用户IP"><%=rs("userlastip")%> <%if rs("lastlogin")<>"" and isdate(rs("lastlogin")) then%><%=rs("lastlogin")%><%end if%> <%=rs("Vip_StarTime")%>/ <%=rs("Vip_EndTime")%> " <%if rs("userGroupid")=1 then response.write "disabled"%>> <% page_count = page_count + 1 rs.movenext wend Pcount=rs.PageCount %> 分页： <% Dim Searchstr '修正头衔搜索用户的分页错误。 '修正最后登陆IP搜索用户的分页错误 2005.10.12 By Winder Searchstr = "?userSearch=" & Request("userSearch") & "&username=" & Request("username") & "&useremail=" & Request("useremail") & "&homepage=" & Request("homepage") & "&oicq=" & Request("oicq") & "&icq=" & Request("icq") & "&msn=" & Request("msn") & "&lastip=" & Request("lastip") & "&usertitle=" & Request("usertitle") & "&sign=" & Request("sign") & "&userclass=" & Request("userclass") & "&usergroups=" & Request("usergroups") & "&action=" & Request("action") & "&usergroupid=" & Request("usergroupid") & "&loginR=" & Request("loginR") & "&loginT=" & Request("loginT") & "&vanishR=" & Request("vanishR") & "&vanishT=" & Request("vanishT") & "®R=" & Request("regR") & "®T=" & Request("regT") & "&artcleR=" & Request("artcleR") & "&artcleT=" & Request("artcleT") & "&searchmax=" & Request("searchmax") & "&UVipStarTime=" & Request("UVipStarTime") & "&UVipStarTime_value=" & Request("UVipStarTime_value") & "&UVipEndTime=" & Request("UVipEndTime") & "&UVipEndTime_value=" & Request("UVipEndTime_value") if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if %> 请选择您需要进行的操作：删除删除用户所有帖子移动到用户组全部选定

<% end if rs.close set rs=nothing End Sub '操作用户，删除用户信息相关操作 Sub ToUser() response.write "执行结果" if request("useraction")="" then response.write "请指定相关参数。" founderr=true end if if request("userid")="" then response.write "请选择相关用户。" founderr=true end if if not founderr then if request("useraction")=1 then Dim AllUserName AllUserName = "" '------------------shinzeal加入删除用户的短信------------------------- dim uid for i=1 to request("userid").count if request("userid").count=1 then uID=request("userid") else uID=replace(request.form("userid")(i),"'","") end if set rs=Dvbbs.Execute("select username from [dv_User] where userid="&uid&"") if not (rs.eof and rs.bof) then AllUserName = AllUserName & Rs(0) & "," Dvbbs.Execute("update dv_message set delR=1 where incept='"&trim(rs(0))&"' and delR=0") Dvbbs.Execute("update dv_message set delS=1 where sender='"&trim(rs(0))&"' and delS=0 and issend=0") Dvbbs.Execute("update dv_message set delS=1 where sender='"&trim(rs(0))&"' and delS=0 and issend=1") Dvbbs.Execute("delete from dv_message where incept='"&rs(0)&"' and delR=1") Dvbbs.Execute("update dv_message set delS=2 where sender='"&trim(rs(0))&"' and delS=1") Dvbbs.Execute("delete from dv_friend where F_username='"&rs(0)&"'") Dvbbs.Execute("delete from dv_bookmark where username='"&rs(0)&"'") end if rs.close next If Right(AllUserName,1) = "," Then AllUserName = Left(AllUserName,Len(AllUserName)-1) '-------------------删除用户的短信------------------------ '删除用户的帖子和精华 Dvbbs.Execute("delete from dv_topic where PostUserID in ("&replace(request("userid"),"'","")&")") for i=0 to ubound(allposttable) Dvbbs.Execute("delete from "&allposttable(i)&" where PostUserID in ("&replace(request("userid"),"'","")&")") next Dvbbs.Execute("delete from dv_besttopic where PostUserID in ("&replace(request("userid"),"'","")&")") '删除用户上传表 Dvbbs.Execute("delete from dv_upfile where F_UserID in ("&replace(request("userid"),"'","")&")") Dvbbs.Execute("delete from [dv_user] where userid in ("&replace(request("userid"),"'","")&")") Response.write "删除用户（ "& AllUserName &" ）操作成功。" '----------------------------------------------------------------- '系统整合 '----------------------------------------------------------------- Dim DvApi_Obj,DvApi_SaveCookie,SysKey If DvApi_Enable Then 'SysKey = Md5(DvApi_SysKey&AllUserName,16) Set DvApi_Obj = New DvApi DvApi_Obj.NodeValue "syskey",SysKey,0,False DvApi_Obj.NodeValue "action","delete",0,False DvApi_Obj.NodeValue "username",AllUserName,1,False Md5OLD = 1 SysKey = Md5(DvApi_Obj.XmlNode("username")&DvApi_SysKey,16) Md5OLD = 0 DvApi_Obj.NodeValue "syskey",SysKey,0,False DvApi_Obj.SendHttpData 'If DvApi_Obj.Status = "1" Then 'Response.redirect "showerr.asp?ErrCodes="& DvApi_Obj.Message &"&action=OtherErr" 'End If Set DvApi_Obj = Nothing End If '----------------------------------------------------------------- elseif request("useraction")=2 then dim userclass,usertitlepic set rs=Dvbbs.Execute("select * from dv_usergroups where usergroupid="&request("selusergroup")&" order by minarticle") if not (rs.eof and rs.bof) then userclass=rs("usertitle") usertitlepic=rs("grouppic") end if Dvbbs.Execute("update [dv_user] set UserGroupID="&replace(request("selusergroup"),"'","")&",userclass='"&userclass&"',titlepic='"&usertitlepic&"' where userid in ("&replace(request("userid"),"'","")&")") response.write "操作成功。" elseif request("useraction")=3 then dim titlenum if request("userid")="" then response.write "请输入被删除帖子用户名。" end if titlenum=0 for i=0 to ubound(allposttable) set rs=Dvbbs.Execute("Select Count(announceID) from "&allposttable(i)&" where postuserid in ("&replace(request("userid"),"'","")&")") titlenum=titlenum+rs(0) sql="update "&allposttable(i)&" set locktopic=boardid,boardid=444,isbest=0 where postuserid in ("&replace(request("userid"),"'","")&")" Dvbbs.Execute(sql) next Dvbbs.Execute("delete from dv_besttopic where postuserid in ("&replace(request("userid"),"'","")&")") set rs=Dvbbs.Execute("select topicid,posttable from dv_topic where postuserid in ("&replace(request("userid"),"'","")&")") do while not rs.eof Dvbbs.Execute("update "&rs(1)&" set locktopic=boardid,boardid=444,isbest=0 where rootid="&rs(0)) rs.movenext loop set rs=nothing Dvbbs.Execute("update dv_topic set locktopic=boardid,boardid=444,isbest=0 where postuserid in ("&replace(request("userid"),"'","")&")") if isnull(titlenum) then titlenum=0 sql="update [dv_user] set UserPost=UserPost-"&titlenum&",userWealth=userWealth-"&titlenum*Dvbbs.Forum_user(3)&",userEP=userEP-"&titlenum*Dvbbs.Forum_user(8)&",userCP=userCP-"&titlenum*Dvbbs.Forum_user(13)&" where userid in ("&replace(request("userid"),"'","")&")" Dvbbs.Execute(sql) response.write "删除成功，如果要完全删除帖子请到论坛回收站
建议您到更新论坛数据中更新一下论坛数据，或者返回" else response.write "错误的参数。" end if end if End Sub '修改用户资料表单 Sub UserModify() dim realname,character,personal,country,province,city,shengxiao,blood,belief,occupation,marital, education,college,userphone,iaddress Dim UserIM response.write "用户资料操作" if not isnumeric(request("userid")) then response.write "错误的用户参数。" founderr=true end if if not founderr then Set rs= Server.CreateObject("ADODB.Recordset") sql="select * from [dv_user] where userid="&request("userid") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "没有找到相关用户。" founderr=true else if rs("userinfo")<>"" then userinfo=split(Server.HtmlEncode(rs("userinfo")),"|||") if ubound(userinfo)=14 then realname=userinfo(0) character=userinfo(1) personal=userinfo(2) country=userinfo(3) province=userinfo(4) city=userinfo(5) shengxiao=userinfo(6) blood=userinfo(7) belief=userinfo(8) occupation=userinfo(9) marital=userinfo(10) education=userinfo(11) college=userinfo(12) userphone=userinfo(13) iaddress=userinfo(14) else realname="" character="" personal="" country="" province="" city="" shengxiao="" blood="" belief="" occupation="" marital="" education="" college="" userphone="" iaddress="" end if else realname="" character="" personal="" country="" province="" city="" shengxiao="" blood="" belief="" occupation="" marital="" education="" college="" userphone="" iaddress="" end if UserIM = Split(Rs("UserIM"),"|||") %>

对 <%=rs("username")%> 用户操作快捷选项：

">发邮件 | " target=_blank>发短信 | " target=_blank>预览用户资料 | &SearchDate=30" target=_blank>用户新贴 | " target=_blank>用户精华 | " target=_blank>用户热贴 | " target=_blank>用户展区 | &username=<%=rs("username")%>">编辑权限 | &t=1" target=_blank>最后来源 | " onclick="{if(confirm('删除将不可恢复，并且将删除该用户在论坛的所有信息，确定删除吗?')){return true;}return false;}">删除用户用户基本资料修改－－<%=rs("username")%> 注意：新建管理员建议到管理员管理中进行，仅在此设置为管理员组的用户并无进入系统后台权限用户组 "> 用户名 " disabled> 密码如果不修改请留空密码问题 "" Then Response.Write Server.HtmlEncode(rs("userquesion"))%>"> 密码答案如果不修改请留空用户性别女 checked<%end if%> name="sex"> 男 checked<%end if%> name="sex"> 个人照片 "" Then Response.Write Server.HtmlEncode(rs("UserPhoto"))%>"> Email "" Then Response.Write Server.HtmlEncode(rs("useremail"))%>"> 个人主页头像 "" Then Response.Write Server.HtmlEncode(Split(rs("userface"),"|")(Ubound(Split(rs("userface"),"|"))))%>"> 宽度："> 高度："> OICQ ICQ MSN AIM YaHoo UC 头衔 "" Then Response.Write Server.HtmlEncode(rs("usertitle"))%>"> 用户分值资料修改发表文章 "> 被删文章 "> 精华文章 "> 金币 "> 点券 "> 金钱 "> 经验 "> 魅力 "> 威望 "> 日期相关生日 "> 格式：2001-2-2 注册时间 "> 最后登录 "> 用户详细资料真实姓名国　　家联系电话通信地址省　　份城　　市生　　肖血　　型信　　仰职　　业婚姻状况最高学历毕业院校性　格个人简介用户签名用户设置用户状态正常 checked<%end if%> name="lockuser"> 锁定 checked<%end if%> name="lockuser"> 屏蔽 checked<%end if%> name="lockuser"> 阳光会员关闭 checked<%end if%> name="IsChallenge"> 开启 checked<%end if%> name="IsChallenge"> 手机号 "> VIP用户登记时间 "> VIP用户到期时间 ">

<% end if rs.close set rs=nothing end if End Sub Sub SaveUserInfo() response.write "更新用户资料" userinfo=checkreal(request.Form("realname")) & "|||" & checkreal(request.Form("character")) & "|||" & checkreal(request.Form("personal")) & "|||" & checkreal(request.Form("country")) & "|||" & checkreal(request.Form("province")) & "|||" & checkreal(request.Form("city")) & "|||" & request.Form("shengxiao") & "|||" & request.Form("blood") & "|||" & request.Form("belief") & "|||" & request.Form("occupation") & "|||" & request.Form("marital") & "|||" & request.Form("education") & "|||" & checkreal(request.Form("college")) & "|||" & checkreal(request.Form("userphone")) & "|||" & checkreal(request.Form("address")) dim myuserim myuserim=checkreal(request.Form("homepage")) & "|||" & checkreal(request.Form("oicq")) & "|||" & checkreal(request.Form("icq")) & "|||" & checkreal(request.Form("msn")) & "|||" & checkreal(request.Form("aim")) & "|||" & checkreal(request.Form("yahoo")) & "|||" & request.Form("uc") if not isnumeric(request("userid")) then response.write "错误的用户参数。" founderr=true end if '用户签名长度限制 2004-9-13 Dv.Yz If Dvbbs.StrLength(Request.Form("sign")) > 250 Then Response.Write "用户签名不能超过 250 个字符。" Founderr = True End If if not founderr then Dim iUserClass,iTitlePic Set Rs=Dvbbs.Execute("Select * From Dv_UserGroups Where UserGroupID = " & Request.Form("usergroups")) If Rs.Eof And Rs.Bof Then Response.Write "所选用户组信息并不存在。" Founderr = True Else iUserClass = Rs("UserTitle") iTitlePic = Rs("GroupPic") End If Dim UpUserName Set rs= Server.CreateObject("ADODB.Recordset") sql="select * from [dv_user] where userid="&request("userid") rs.open sql,conn,1,3 if rs.eof and rs.bof then response.write "没有找到相关用户。" founderr=true Else UpUserName = rs("username") Rs("UserPhoto")=Request.form("UserPhoto") 'rs("username")=request.form("username") if request.form("password")<>"" then rs("userpassword")=md5(request.form("password"),16) end if rs("usergroupid")=request.form("usergroups") rs("userquesion")=request.form("quesion") if request.form("answer")<>"" then rs("useranswer")=md5(request.form("answer"),16) rs("userclass")=iUserClass rs("useremail")=request.form("useremail") Rs("UserSex")=request.form("sex") rs("userim")=myuserim rs("userface")=request.form("face") if isnumeric(request.form("width")) then rs("userwidth")=request.form("width") if isnumeric(request.form("height")) then rs("userheight")=request.form("height") rs("usertitle")=request.form("usertitle") rs("titlepic")=iTitlePic if isnumeric(request.form("article")) then rs("UserPost")=request.form("article") if isnumeric(request.form("userdel")) then rs("userdel")=request.form("userdel") if isnumeric(request.form("userisbest")) then rs("userisbest")=request.form("userisbest") if isnumeric(request.form("userpower")) then rs("userpower")=request.form("userpower") if isnumeric(request.form("userwealth")) then rs("userwealth")=request.form("userwealth") if isnumeric(request.form("usermoney")) then rs("usermoney")=request.form("usermoney") if isnumeric(request.form("UserTicket")) then rs("UserTicket")=request.form("UserTicket") if isnumeric(request.form("userep")) then rs("userep")=request.form("userep") if isnumeric(request.form("usercp")) then rs("usercp")=request.form("usercp") if isdate(request.form("birthday")) then rs("userbirthday")=request.form("birthday") if isdate(request.form("adddate")) then rs("JoinDate")=request.form("adddate") if isdate(request.form("lastlogin")) then rs("lastlogin")=request.form("lastlogin") if isdate(request.form("Vip_StarTime")) then rs("Vip_StarTime")=request.form("Vip_StarTime") if isdate(request.form("Vip_EndTime")) then rs("Vip_EndTime")=request.form("Vip_EndTime") if isnumeric(request.form("lockuser")) then rs("lockuser")=request.form("lockuser") rs("usersign")=request.form("sign") rs("userinfo")=userinfo If request.form("IsChallenge")="0" Or Request.Form("UserMobile")="" Then Rs("IsChallenge")=0 Rs("UserMobile")="" Else Rs("IsChallenge")=1 Rs("UserMobile")=Request.Form("UserMobile") End If rs.update end if rs.close set rs=nothing end if if not founderr then '----------------------------------------------------------------- '系统整合 '----------------------------------------------------------------- Dim DvApi_Obj,DvApi_SaveCookie,SysKey If DvApi_Enable Then Set DvApi_Obj = New DvApi DvApi_Obj.NodeValue "syskey",SysKey,0,False DvApi_Obj.NodeValue "action","update",0,False DvApi_Obj.NodeValue "username",UpUserName,1,False Md5OLD = 1 SysKey = Md5(DvApi_Obj.XmlNode("username")&DvApi_SysKey,16) Md5OLD = 0 DvApi_Obj.NodeValue "syskey",SysKey,0,False DvApi_Obj.NodeValue "password",Request.form("password"),1,False DvApi_Obj.NodeValue "answer",Request.Form("useranswer"),1,False DvApi_Obj.NodeValue "question",Request.Form("quesion"),1,False DvApi_Obj.NodeValue "email",Request.Form("useremail"),1,False DvApi_Obj.SendHttpData If DvApi_Obj.Status = "1" Then response.write ""&DvApi_Obj.Message&"" End If Set DvApi_Obj = Nothing End If '----------------------------------------------------------------- End If if founderr then response.write "更新失败。" else response.write "更新用户数据成功。" end if End Sub Sub UserPermission() Response.Write "编辑" & Request("Username") & "论坛权限（红色表示该用户在该版面有自定义权限）" If Not Isnumeric(Request("Userid")) Then Response.Write "错误的用户参数。" Founderr = True End If If Not Founderr Then Response.Write "①您可以设置该用户在不同论坛内的权限，红色表示为该用户组使用的是用户自定义属性
②该权限不能继承，比如您设置了一个包含下级论坛的版面，那么只对您设置的版面生效而不对其下属论坛生效
③如果您想设置生效，必须在设置页面选择自定义设置，选择了自定义设置后，这里设置的权限将优先于用户组设置和论坛权限设置，比如用户组默认或论坛权限设置该用户组不能管理帖子，而这里设置了该用户可管理帖子，那么该用户在这个版面就可以管理帖子" Set Trs = Dvbbs.Execute("SELECT Uc_UserId FROM Dv_UserAccess WHERE Uc_Boardid = 0 AND Uc_Userid = " & Request("Userid")) If Trs.Eof And Trs.Bof Then Response.Write "编辑该用户在全局的权限（前台短信、前台用户信息、帖子和权限管理、进入后台权限等）" Else Response.Write "编辑该用户在全局的权限（前台短信、前台用户信息、帖子和权限管理、进入后台权限等）" End If '----------------------boardinfo-------------------- Response.Write "点击论坛名称进入编辑状态
" Rem 改用数组代替循环查询 2004-5-6 Dvbbs.YangZheng Dim Bn Sql = "SELECT Depth, Child, Boardid, Parentid, Boardtype FROM Dv_Board ORDER BY Rootid, Orders" Set Rs = Dvbbs.Execute(Sql) If Not (Rs.Eof And Rs.Bof) Then Sql = Rs.GetRows(-1) Rs.Close:Set Rs = Nothing For Bn = 0 To Ubound(Sql,2) If Sql(0,Bn) > 0 Then For i = 1 To Sql(0,Bn) Response.Write " " Next End If If Sql(1,Bn) > 0 Then Response.Write "" Else Response.Write "" End If %> "> <% Set Trs = Dvbbs.Execute("SELECT Uc_UserId FROM Dv_UserAccess WHERE Uc_Boardid = " & Sql(2,Bn) & " AND Uc_Userid = " & Request("Userid")) If Not (Trs.Eof And Trs.Bof) Then Response.Write "[自定义]" End If If Sql(3,Bn) = 0 Then Response.Write "" Response.Write Sql(4,Bn) If Sql(3,Bn) = 0 Then Response.Write "" If Sql(1,Bn) > 0 Then Response.Write "(" & Sql(1,Bn) & ")" Response.Write "
" Next End If Response.Write "" '-------------------end------------------- End If End Sub Sub UserBoardPermission() if not isnumeric(request("userid")) then response.write "错误的用户参数。" founderr=true end if if not isnumeric(request("boardid")) then response.write "错误的版面参数。" founderr=true end if if not founderr then set rs=Dvbbs.Execute("select u.UserGroupID,ug.title,u.username from [dv_user] u inner join dv_UserGroups UG on u.userGroupID=ug.userGroupID where u.userid="&request("userid")) Dvbbs.UserGroupID=rs(0) usertitle=rs(1) Dvbbs.membername=rs(2) dim boardtype set rs=Dvbbs.Execute("select boardtype from dv_board where boardid="&request("boardid")) if rs.eof and rs.bof then boardtype="论坛其他页面" else boardtype=rs(0) end if response.write "编辑 "&Dvbbs.membername&" 在 "&boardtype&" 权限" response.write "注意：该用户属于 "&usertitle&" 用户组中，如果您设置了他的自定义权限，则该用户权限将以自定义权限为主" %> <% Dim reGroupSetting Dim FoundGroup,FoundUserPermission,FoundGroupPermission FoundGroup=false FoundUserPermission=false FoundGroupPermission=false set rs=Dvbbs.Execute("select * from dv_UserAccess where uc_boardid="&request("boardid")&" and uc_userid="&request("userid")) if not (rs.eof and rs.bof) then reGroupSetting=rs("uc_Setting") FoundGroup=true FoundUserPermission=true end if if not foundgroup then set rs=Dvbbs.Execute("select * from dv_BoardPermission where boardid="&request("boardid")&" and groupid="&DVbbs.UserGroupID) if not(rs.eof and rs.bof) then reGroupSetting=rs("PSetting") FoundGroup=true FoundGroupPermission=true end if end if if not foundgroup then set rs=Dvbbs.Execute("select * from dv_usergroups where usergroupid="&DVbbs.UserGroupID) if rs.eof and rs.bof then response.write "未找到该用户组！" response.end else FoundGroup=true FoundGroupPermission=true reGroupSetting=rs("GroupSetting") end if end if %> "> "> <%If Dvbbs.BoardID <> 0 Then%> <%Else%> <%End If%> <% GroupPermission(reGroupSetting) %>

保存目标：该版面所有版面相同分类下所有版面（不包括分类）相同分类下所有版面（包括分类）同分类同级别版面
这里指的分类仅指一级分类，而不是该版面的上级版面，比如您目前设置的是一个五级版面，选择了相同分类下所有版面都更新，那么这里将更新包括该分类的一级、二级、三级、四级所有版面，如果您担心更新范围太大，可以选择更新同分类同级别版面。
checked<%end if%>>使用用户组默认值 (注意: 这将删除任何之前所做的自定义设置)
checked<%end if%>>使用自定义设置 (选择自定义才能使以下设置生效)

<% end if End Sub Sub SaveUserPermission() response.write "编辑用户 "&request("username")&" 权限" if not isnumeric(request("userid")) then response.write "错误的用户参数。" founderr=true end if if not isnumeric(request("boardid")) then response.write "错误的版面参数。" founderr=true end if if not founderr then dim myGroupSetting Dim IsGroupSetting,MyIsGroupSetting,FoundSetting myGroupSetting=GetGroupPermission select case request("savetype") '当前版面 case "0" if request("isdefault")=1 then Dvbbs.Execute("delete from dv_UserAccess where uc_boardid="&request("boardid")&" and uc_userid="&request("userid")) Set Rs=Dvbbs.Execute("Select Count(*) from dv_UserAccess where uc_boardid="&request("boardid")&" and uc_userid="&request("userid")) FoundSetting=Rs(0) If IsNull(FoundSetting) Or FoundSetting="" Then FoundSetting=0 If Dvbbs.BoardID > 0 Then Set Rs=Dvbbs.Execute("select IsGroupSetting From Dv_Board Where BoardID="&request("boardid")) If Trim(Rs(0))="" Or IsNull(Rs(0)) Then MyIsGroupSetting = "" Else IsGroupSetting = "," & Rs(0) & "," If FoundSetting=0 Then IsGroupSetting = Replace(IsGroupSetting,",0_"&request("userid"),"") IsGroupSetting=replace(IsGroupSetting,",,",",") IsGroupSetting = Split(IsGroupSetting,",") For i=1 To Ubound(IsGroupSetting)-1 If i=1 Then MyIsGroupSetting = IsGroupSetting(i) Else MyIsGroupSetting = MyIsGroupSetting & "," & IsGroupSetting(i) End If Next End If Dvbbs.Execute("update dv_Board set IsGroupSetting='"&MyIsGroupSetting&"' Where BoardID="&request("boardid")) End If else set rs=Dvbbs.Execute("select * from dv_UserAccess where uc_boardid="&request("boardid")&" and uc_userid="&request("userid")) if rs.eof and rs.bof then Dvbbs.Execute("insert into dv_UserAccess (uc_userid,uc_boardid,uc_setting) values ("&request("userid")&","&request("boardid")&",'"&myGroupSetting&"')") else Dvbbs.Execute("update dv_UserAccess set uc_setting='"&myGroupSetting&"' where uc_boardid="&request("boardid")&" and uc_userid="&request("userid")) end if If Dvbbs.BoardID > 0 Then Set Rs=Dvbbs.Execute("select IsGroupSetting From Dv_Board Where BoardID="&request("boardid")) If Trim(Rs(0))="" Or IsNull(Rs(0)) Then MyIsGroupSetting = 0 Else IsGroupSetting = "," & Rs(0) & "," IsGroupSetting = Replace(IsGroupSetting,",0_"&request("userid"),"") IsGroupSetting=replace(IsGroupSetting,",,",",") IsGroupSetting = IsGroupSetting & "0_"&request("userid")&"," IsGroupSetting = Split(IsGroupSetting,",") For i=1 To Ubound(IsGroupSetting)-1 If i=1 Then MyIsGroupSetting = IsGroupSetting(i) Else MyIsGroupSetting = MyIsGroupSetting & "," & IsGroupSetting(i) End If Next End If Dvbbs.Execute("update dv_Board set IsGroupSetting='"&MyIsGroupSetting&"' Where BoardID="&request("boardid")) Set Rs=Nothing End If end if If Dvbbs.BoardID > 0 Then Dvbbs.ReloadBoardCache request("boardid") '所有版面 case "1" set trs=Dvbbs.Execute("select * from dv_board") do while not trs.eof if request("isdefault")=1 then Dvbbs.Execute("delete from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) Set Rs=Dvbbs.Execute("Select Count(*) from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) FoundSetting=Rs(0) If IsNull(FoundSetting) Or FoundSetting="" Then FoundSetting=0 Set Rs=Dvbbs.Execute("select IsGroupSetting From Dv_Board Where BoardID="&trs("boardid")) If Trim(Rs(0))="" Or IsNull(Rs(0)) Then MyIsGroupSetting = "" Else IsGroupSetting = "," & Rs(0) & "," If FoundSetting=0 Then IsGroupSetting = Replace(IsGroupSetting,",0_"&request("userid"),"") IsGroupSetting=replace(IsGroupSetting,",,",",") IsGroupSetting = Split(IsGroupSetting,",") For i=1 To Ubound(IsGroupSetting)-1 If i=1 Then MyIsGroupSetting = IsGroupSetting(i) Else MyIsGroupSetting = MyIsGroupSetting & "," & IsGroupSetting(i) End If Next End If FoundSetting="" Dvbbs.Execute("update dv_Board set IsGroupSetting='"&MyIsGroupSetting&"' Where BoardID="&trs("boardid")) Else set rs=Dvbbs.Execute("select * from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) if rs.eof and rs.bof then Dvbbs.Execute("insert into dv_UserAccess (uc_userid,uc_boardid,uc_setting) values ("&request("userid")&","&trs("boardid")&",'"&myGroupSetting&"')") else Dvbbs.Execute("update dv_UserAccess set uc_setting='"&myGroupSetting&"' where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) end if Set Rs=Dvbbs.Execute("select IsGroupSetting From Dv_Board Where BoardID="&trs("boardid")) If Trim(Rs(0))="" Or IsNull(Rs(0)) Then MyIsGroupSetting = 0 Else IsGroupSetting = "," & Rs(0) & "," IsGroupSetting = Replace(IsGroupSetting,",0_"&request("userid"),"") IsGroupSetting=replace(IsGroupSetting,",,",",") IsGroupSetting = IsGroupSetting & "0_"&request("userid")&"," IsGroupSetting = Split(IsGroupSetting,",") For i=1 To Ubound(IsGroupSetting)-1 If i=1 Then MyIsGroupSetting = IsGroupSetting(i) Else MyIsGroupSetting = MyIsGroupSetting & "," & IsGroupSetting(i) End If Next End If Dvbbs.Execute("update dv_Board set IsGroupSetting='"&MyIsGroupSetting&"' Where BoardID="&trs("boardid")) end if Dvbbs.ReloadBoardCache trs("boardid") trs.movenext loop trs.close set trs=nothing Set Rs=Nothing '相同分类下所有版面（不包括分类） case "2" set trs=Dvbbs.Execute("select rootid from dv_board where boardid="&request("boardid")) myrootid=trs(0) set trs=Dvbbs.Execute("select * from dv_board where (Not ParentID=0) and rootid="&myrootid) do while not trs.eof if request("isdefault")=1 then Dvbbs.Execute("delete from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) Set Rs=Dvbbs.Execute("Select Count(*) from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) FoundSetting=Rs(0) If IsNull(FoundSetting) Or FoundSetting="" Then FoundSetting=0 Set Rs=Dvbbs.Execute("select IsGroupSetting From Dv_Board Where BoardID="&trs("boardid")) If Trim(Rs(0))="" Or IsNull(Rs(0)) Then MyIsGroupSetting = "" Else IsGroupSetting = "," & Rs(0) & "," If FoundSetting=0 Then IsGroupSetting = Replace(IsGroupSetting,",0_"&request("userid"),"") IsGroupSetting=replace(IsGroupSetting,",,",",") IsGroupSetting = Split(IsGroupSetting,",") For i=1 To Ubound(IsGroupSetting)-1 If i=1 Then MyIsGroupSetting = IsGroupSetting(i) Else MyIsGroupSetting = MyIsGroupSetting & "," & IsGroupSetting(i) End If Next End If FoundSetting="" Dvbbs.Execute("update dv_Board set IsGroupSetting='"&MyIsGroupSetting&"' Where BoardID="&trs("boardid")) else set rs=Dvbbs.Execute("select * from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) if rs.eof and rs.bof then Dvbbs.Execute("insert into dv_UserAccess (uc_userid,uc_boardid,uc_setting) values ("&request("userid")&","&trs("boardid")&",'"&myGroupSetting&"')") else Dvbbs.Execute("update dv_UserAccess set uc_setting='"&myGroupSetting&"' where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) end if Set Rs=Dvbbs.Execute("select IsGroupSetting From Dv_Board Where BoardID="&trs("boardid")) If Trim(Rs(0))="" Or IsNull(Rs(0)) Then MyIsGroupSetting = 0 Else IsGroupSetting = "," & Rs(0) & "," IsGroupSetting = Replace(IsGroupSetting,",0_"&request("userid"),"") IsGroupSetting=replace(IsGroupSetting,",,",",") IsGroupSetting = IsGroupSetting & "0_"&request("userid")&"," IsGroupSetting = Split(IsGroupSetting,",") For i=1 To Ubound(IsGroupSetting)-1 If i=1 Then MyIsGroupSetting = IsGroupSetting(i) Else MyIsGroupSetting = MyIsGroupSetting & "," & IsGroupSetting(i) End If Next End If Dvbbs.Execute("update dv_Board set IsGroupSetting='"&MyIsGroupSetting&"' Where BoardID="&trs("boardid")) end if Dvbbs.ReloadBoardCache trs("boardid") trs.movenext loop trs.close set trs=nothing Set Rs=Nothing '相同分类下所有版面（包括分类） case "3" set trs=Dvbbs.Execute("select rootid from dv_board where boardid="&request("boardid")) myrootid=trs(0) set trs=Dvbbs.Execute("select * from dv_board where rootid="&myrootid) do while not trs.eof if request("isdefault")=1 then Dvbbs.Execute("delete from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) Set Rs=Dvbbs.Execute("Select Count(*) from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) FoundSetting=Rs(0) If IsNull(FoundSetting) Or FoundSetting="" Then FoundSetting=0 Set Rs=Dvbbs.Execute("select IsGroupSetting From Dv_Board Where BoardID="&trs("boardid")) If Trim(Rs(0))="" Or IsNull(Rs(0)) Then MyIsGroupSetting = "" Else IsGroupSetting = "," & Rs(0) & "," If FoundSetting=0 Then IsGroupSetting = Replace(IsGroupSetting,",0_"&request("userid"),"") IsGroupSetting=replace(IsGroupSetting,",,",",") IsGroupSetting = Split(IsGroupSetting,",") For i=1 To Ubound(IsGroupSetting)-1 If i=1 Then MyIsGroupSetting = IsGroupSetting(i) Else MyIsGroupSetting = MyIsGroupSetting & "," & IsGroupSetting(i) End If Next End If FoundSetting="" Dvbbs.Execute("update dv_Board set IsGroupSetting='"&MyIsGroupSetting&"' Where BoardID="&trs("boardid")) else set rs=Dvbbs.Execute("select * from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) if rs.eof and rs.bof then Dvbbs.Execute("insert into dv_UserAccess (uc_userid,uc_boardid,uc_setting) values ("&request("userid")&","&trs("boardid")&",'"&myGroupSetting&"')") else Dvbbs.Execute("update dv_UserAccess set uc_setting='"&myGroupSetting&"' where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) end if Set Rs=Dvbbs.Execute("select IsGroupSetting From Dv_Board Where BoardID="&trs("boardid")) If Trim(Rs(0))="" Or IsNull(Rs(0)) Then MyIsGroupSetting = 0 Else IsGroupSetting = "," & Rs(0) & "," IsGroupSetting = Replace(IsGroupSetting,",0_"&request("userid"),"") IsGroupSetting=replace(IsGroupSetting,",,",",") IsGroupSetting = IsGroupSetting & "0_"&request("userid")&"," IsGroupSetting = Split(IsGroupSetting,",") For i=1 To Ubound(IsGroupSetting)-1 If i=1 Then MyIsGroupSetting = IsGroupSetting(i) Else MyIsGroupSetting = MyIsGroupSetting & "," & IsGroupSetting(i) End If Next End If Dvbbs.Execute("update dv_Board set IsGroupSetting='"&MyIsGroupSetting&"' Where BoardID="&trs("boardid")) end if Dvbbs.ReloadBoardCache trs("boardid") trs.movenext loop trs.close set trs=nothing Set Rs=Nothing '同分类同级别版面 case "4" dim myparentid,myparentstr set trs=Dvbbs.Execute("select rootid,ParentStr,ParentID from dv_board where boardid="&request("boardid")) myrootid=trs(0) myparentstr=trs(1) myparentid=trs(2) set trs=Dvbbs.Execute("select * from dv_board where rootid="&myrootid&" and ParentID="&myparentid&" and ParentStr='"&myparentstr&"'") do while not trs.eof if request("isdefault")=1 then Dvbbs.Execute("delete from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) Set Rs=Dvbbs.Execute("Select Count(*) from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) FoundSetting=Rs(0) If IsNull(FoundSetting) Or FoundSetting="" Then FoundSetting=0 Set Rs=Dvbbs.Execute("select IsGroupSetting From Dv_Board Where BoardID="&trs("boardid")) If Trim(Rs(0))="" Or IsNull(Rs(0)) Then MyIsGroupSetting = "" Else IsGroupSetting = "," & Rs(0) & "," If FoundSetting=0 Then IsGroupSetting = Replace(IsGroupSetting,",0_"&request("userid"),"") IsGroupSetting=replace(IsGroupSetting,",,",",") IsGroupSetting = Split(IsGroupSetting,",") For i=1 To Ubound(IsGroupSetting)-1 If i=1 Then MyIsGroupSetting = IsGroupSetting(i) Else MyIsGroupSetting = MyIsGroupSetting & "," & IsGroupSetting(i) End If Next End If FoundSetting="" Dvbbs.Execute("update dv_Board set IsGroupSetting='"&MyIsGroupSetting&"' Where BoardID="&trs("boardid")) else set rs=Dvbbs.Execute("select * from dv_UserAccess where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) if rs.eof and rs.bof then Dvbbs.Execute("insert into dv_UserAccess (uc_userid,uc_boardid,uc_setting) values ("&request("userid")&","&trs("boardid")&",'"&myGroupSetting&"')") else Dvbbs.Execute("update dv_UserAccess set uc_setting='"&myGroupSetting&"' where uc_boardid="&trs("boardid")&" and uc_userid="&request("userid")) end if Set Rs=Dvbbs.Execute("select IsGroupSetting From Dv_Board Where BoardID="&trs("boardid")) If Trim(Rs(0))="" Or IsNull(Rs(0)) Then MyIsGroupSetting = 0 Else IsGroupSetting = "," & Rs(0) & "," IsGroupSetting = Replace(IsGroupSetting,",0_"&request("userid"),"") IsGroupSetting=replace(IsGroupSetting,",,",",") IsGroupSetting = IsGroupSetting & "0_"&request("userid")&"," IsGroupSetting = Split(IsGroupSetting,",") For i=1 To Ubound(IsGroupSetting)-1 If i=1 Then MyIsGroupSetting = IsGroupSetting(i) Else MyIsGroupSetting = MyIsGroupSetting & "," & IsGroupSetting(i) End If Next End If Dvbbs.Execute("update dv_Board set IsGroupSetting='"&MyIsGroupSetting&"' Where BoardID="&trs("boardid")) end if Dvbbs.ReloadBoardCache trs("boardid") trs.movenext loop trs.close set trs=nothing Set Rs=Nothing end select if founderr then response.write "更新失败。" else response.write "

设置用户权限成功。" If Request.Form("GroupSetting(70)") = "1" Then Response.Write "

您设置了该用户可进入论坛后台的权限，请到管理员管理中添加该用户的后台账号和设置该帐户后台权限。" Response.Write "" end if End if End Sub Sub UniteUser() if request("auser")<>"" and request("buser")<>"" then dim auserid,buserid dim c1,c2,c3,c4,c5,c6,c7,c8,c9 set rs=dvbbs.execute("select userid,userpost,usertopic,userviews,userwealth,userep,usercp,userpower,userisbest,userdel,usergroupid from dv_user where username='"&replace(request("auser"),"'","''")&"'") if rs.eof and rs.bof then errmsg = errmsg + "没有找到被合并用户" founderr=true else auserid=rs(0) c1=rs(1) c2=rs(2) c3=rs(3) c4=rs(4) c5=rs(5) c6=rs(6) c7=rs(7) c8=rs(8) c9=rs(9) if rs(10) < 4 then errmsg = errmsg + "只允许对注册用户组进行合并用户操作" founderr=true end if end if set rs=dvbbs.execute("select userid from dv_user where username='"&replace(request("buser"),"'","''")&"'") if rs.eof and rs.bof then errmsg = errmsg + "没有找到合并的目标用户" founderr=true else buserid=rs(0) end if if auserid=buserid then errmsg = errmsg + "相同用户不能进行合并" founderr=true end if if founderr then Response.Write errmsg else '合并用户的资料 dvbbs.execute("update dv_user set userpost=userpost+"&c1&",usertopic=usertopic+"&c2&",userviews=userviews+"&c3&",userwealth=userwealth+"&c4&",userep=userep+"&c5&",usercp=usercp+"&c6&",userpower=userpower+"&c7&",userisbest=userisbest+"&c8&",userdel=userdel+"&c9&" where userid="&buserid) '更新帖子数据 for i=0 to ubound(allposttable) dvbbs.execute("update "&allposttable(i)&" set postuserid="&buserid&",username='"&replace(request("buser"),"'","''")&"' where postuserid="&auserid) next dvbbs.execute("update dv_topic set postuserid="&buserid&",postusername='"&replace(request("buser"),"'","''")&"' where postuserid="&auserid) '更新短信数据 Dvbbs.Execute("update dv_message set incept='"&replace(request("buser"),"'","''")&"' where incept='"&replace(request("auser"),"'","''")&"'") Dvbbs.Execute("update dv_message set sender='"&replace(request("buser"),"'","''")&"' where sender='"&replace(request("auser"),"'","''")&"'") Dvbbs.Execute("update dv_friend set F_username='"&replace(request("buser"),"'","''")&"' where F_username='"&replace(request("auser"),"'","''")&"'") Dvbbs.Execute("update dv_bookmark set username='"&replace(request("buser"),"'","''")&"' where username='"&replace(request("auser"),"'","''")&"'") Dvbbs.Execute("update dv_besttopic set PostUserID="&buserid&",postusername='"&replace(request("buser"),"'","''")&"' where PostUserID="&auserid) '更新用户上传表 Dvbbs.Execute("update dv_upfile set F_UserID="&buserid&",F_Username='"&replace(request("buser"),"'","''")&"' where F_UserID="&auserid) response.write "合并用户数据成功。" end if else %> <% end if End Sub Sub Fixuser() Dim Userid Userid = Request("Userid") If Not IsNumeric(Userid) Then Errmsg = ErrMsg + "

参数错误!" Dvbbs_Error() Exit Sub End If Userid = CLng(Userid) Dim Rs, Username, UserArticle, UserIsBest UserArticle = 0 Set Rs = Dvbbs.Execute("SELECT Username FROM [Dv_User] WHERE Userid = " & Userid & "") If Rs.Eof Or Rs.Bof Then Errmsg = ErrMsg + "

找不到该用户，误删用户需要重新用原来的名字注册才可以修复数据!" Dvbbs_Error() Exit Sub Else Username = Rs(0) Rs.Close:Set Rs = Nothing '修复主题表 Dvbbs.Execute ("Update Dv_Topic Set PostUserID = " & Userid & " WHERE PostUserName = '" & Username & "'") '修复所有数据表 For i = 0 To Ubound(AllPostTable) Dvbbs.Execute ("Update " & AllPostTable(i) & " Set Postuserid = " & Userid & " WHERE UserName = '" & Username & "'") '计算用户发贴 Set Rs = Dvbbs.Execute("SELECT COUNT(*) FROM " & AllPostTable(i) & " WHERE Postuserid = " & Userid & "") UserArticle = UserArticle + Rs(0) Rs.Close:Set Rs = Nothing Next '修复精华 Dvbbs.Execute ("UPDATE Dv_BestTopic Set PostUserID = " & Userid & " WHERE PostUserName = '" & Username & "'") Set Rs = Dvbbs.Execute("SELECT COUNT(*) FROM Dv_BestTopic WHERE Postuserid = " & Userid &"") UserIsBest = Rs(0) Rs.Close:Set Rs = Nothing '修复上传文件列表 Dvbbs.Execute ("UPDATE DV_Upfile SET F_UserID = " & Userid & " WHERE F_Username = '" & Username & "'") '更新发贴数 Dvbbs.Execute ("UPDATE [Dv_User] SET UserPost = " & UserArticle & ", UserIsBest = " & UserIsBest & " WHERE Userid = " & Userid & "") End If Set Rs = Nothing Dv_Suc("用户" & Username & "数据修复成功！") End Sub Function CheckReal(v) Dim w If Not IsNull(v) Then w=Replace(v,"|||","§§§") CheckReal=w End If End Function Function CheckNumeric(Byval CHECK_ID) If CHECK_ID<>"" and IsNumeric(CHECK_ID) Then _ CHECK_ID = Int(CHECK_ID) _ Else _ CHECK_ID = 0 CheckNumeric = CHECK_ID End Function %>

登录次数: 多于少于次	消失天数: 多于少于天
注册天数: 多于少于天	发表帖数: 多于少于篇
用户金钱: 多于少于	用户经验: 多于少于
用户魅力: 多于少于	用户威望: 多于少于
用户金币: 多于少于	用户点券: 多于少于
以下条件请选取相应的VIP用户组进行查询
Vip登记时间: 多于少于	Vip截止时间: 多于少于